home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
modula12.exe
/
PROCED5.MOD
< prev
next >
Wrap
Text File
|
1988-10-26
|
539b
|
34 lines
(* Chapter 5 - Program 5 *)
MODULE Proced5;
FROM InOut IMPORT WriteString, WriteLn;
PROCEDURE One;
BEGIN
WriteString("This is procedure One.");
WriteLn;
END One;
PROCEDURE Two;
BEGIN
One;
WriteString("This is procedure Two.");
WriteLn;
END Two;
PROCEDURE Three;
BEGIN
Two;
WriteString("This is procedure Three.");
WriteLn;
END Three;
BEGIN (* Main program *)
One;
WriteLn;
Two;
WriteLn;
Three;
WriteLn;
END Proced5.